МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА” Кафедра інформаційних систем та мереж Лабораторна робота №4 на тему РЕАЛІЗАЦІЯ РОЗГАЛУЖЕНЬ У PASCAL  Львів-2009 Мета роботи Ознайомитись із операторами керування мови Pascal, простими та складеними, умовними та безумовними операторами. Перший рівень На основі прикладів 1-2, наведених у методичних вказівках, продемонстуйте особливості використання операторів умовного переходу та вибору. program laba4_1; uses crt; var a,b : real; i :integer; begin clrscr; writeln ('vvedit vartist pokupky '); read (a); if a<=0 then writeln ('nepravelna vartist pokupky') else begin writeln ('vvedit kilkist mis9civ v programi lo9lnosti'); read (i); case i of 1 : b:=a-a*(0.5/100); 2 : b:=a-a*(1/100); 3 : b:=a-a*(1.5/100); 4 : b:=a-a*(2/100); 5,6 :b:=a-a*(3/100); 7,8 :b:=a-a*(4/100); 9,10 :b:=a-a*(5/100); 11,12 :b:=a-a*(6/100); else b:=a-a*(10/100); end; writeln; writeln ('Vartist vashoi pokupku iz vrahuvann9m skytky stanovyt ',b:5:2,' grn'); end; readkey; end.
Другий рівень Скласти програму згідно номера варіанту для знаходження змінної у для відповідних значень х, використовуючи оператор умовного переходу. Вивести на друк значення аргументу, функції та проміжних величин. Передбачити у програмі обхід арифметичних операцій, які при певних значеннях аргументу можуть давати невизначений результат (ділення на нуль, корінь з від’ємного числа, логарифмування числа, меншого за нуль). program laba4_2; uses crt; var x,a,b,c,y :real; K,L : integer; begin write ('x='); read (x); write ('k='); read (k); write ('l='); read (l); if (x=PI/2) or (x=-PI/2) then writeln ('dilenn9 na 0'); if (l=PI/2) or (l=-PI/2) then writeln ('dilenn9 na 0'); a:=exp(0.1*ln(exp(0.1*ln(10)*(sin(x)/cos(x))))); b:=exp(15*ln(k+exp(0.2*ln((sin(l)/cos(l)))))); if (a+b)>5 then y:=sin(PI*a+exp(b)) else y:=sin(PI*a+b); writeln (a:8:3,b:8:3); writeln; writeln (y:8:2,'pru ', x:8); end. .
 Третій рівень Скласти програму для розв’язування наведеного завдання двома способами, використовуючи 1) команду case; 2) команду if.Придумати і задати вхідні дані так, щоб вибір був із 4-6 альтернатив. Ввести першу букву назви області. Вивести столицю області. program laba4_3; uses crt; var b : char; begin readln (b); case b of 'a' : Writeln ('Simferopol'); 'v' : writeln ('Vinnyc9 Luck'); 'd' : writeln ('Doneck Dnipropetrovsk'); 'l' : writeln ('Lugansk Lviv'); 's' : writeln ('Sumy'); 'k' : writeln ('Kyiv'); 't' : writeln ('Ternopil'); end; readkey; end. program laba4_32; uses crt; var b : char; begin readln (b); if b='a' then Writeln ('Simferopol'); if b='v' then writeln ('Vinnyc9 Luck'); if b='l' then writeln ('Lugansk Lviv'); if b='s' then writeln ('Sumy'); if b='k' then writeln ('Kyiv'); if b='t' then writeln ('Ternopil'); readkey; end.